home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / SIE6.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  4.0 KB  |  143 lines
  1. name Kolb/Siemens 6MB
  2.  
  3. % 00
  4. ! 00
  5. / 00
  6. : >4
  7. N >4
  8. G 2
  9. g >2 G
  10. X ->3.4
  11. x ->3.4 X
  12. Y ->3.4
  13. y ->3.4 Y
  14. Z ->3.4
  15. z ->3.4 Z
  16. A ->3.4
  17. I ->3.4
  18. J ->3.4
  19. K ->3.4
  20. Q ->3.4
  21. R ->3.4
  22. P >40
  23. F >3.1
  24. H 2
  25. D 2
  26. T 2
  27. S >4
  28. M 2
  29. c 00
  30. q 00
  31. e 00
  32.  
  33. ModalLetters X Y Z F R                # List of letters that are modal    
  34.  
  35. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  36.  
  37. Sequence#s N 1 10 10                  # Char, freq, incr & start          
  38. First#? N                             # Y or N  'Output 1st sequence no.  
  39. Last#? N                              # Y or N  'Output last sequence no. 
  40.  
  41. HCode X                               # X or X U  'Horizontal char.       
  42. VCode Y                               # Y or Y V  'Vertical char.         
  43. Dcode Z                               # Depth char.                       
  44. FeedCode F                            # Feed rate char.                   
  45.  
  46. Comment ( )                           # Begin End comment char.           
  47.  
  48. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  49. Coolant 8 9 7                         # On, Off & Mist m codes            
  50. DComp 41 42 40                        # Left, Right & Cancel m codes      
  51. LComp 43 49                           # On & Off codes                    
  52.  
  53. Feed G1                             # Linear move                       
  54. Rapid G0                            # Rapid positioning word            
  55. Cw G2                               # Circular move clockwise           
  56. Ccw G3                              # Circular move counter clockwise   
  57.  
  58. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  59.  
  60. CtrCode I J                           # I J or R or I J K L               
  61. Helical? N
  62.  
  63. Spaces? N                             # Y or N  'Spaces between words     
  64.  
  65. Incremental? Y                        # Y or N  'Inc or abs output        
  66. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  67. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  68.  
  69. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  70.  
  71.  
  72. Drill                                 # Drilling canned/manual cycle      
  73. G98 G81 X[H] Y[V] Z[D] R2 F[FRate]
  74. end cancel
  75.  
  76. Peck                                  # Pecking canned/manual cycle       
  77. G98 G83 X[H] Y[V] Z[D] Q[VBite] R2 F[FRate]
  78. end cancel
  79.  
  80. Tap                                   # Tapping canned/manual cycle       
  81. G98 G84 X[H] Y[V] Z[D] R2 F[FRate] Q[VBite]
  82. end cancel
  83.  
  84. LTap                                  # Left handed tapping cycle         
  85. G98 G74 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  86. end cancel
  87.  
  88. Ream                                  # Reaming canned/manual cycle       
  89. G98 G85 X[H] Y[V] Z[D] R2 F[FRate]
  90. end cancel
  91.  
  92. Bore                                  # Boring canned/manual cycle        
  93. G98 G86 X[H] Y[V] Z[D] R2 F[FRate]
  94. end cancel
  95.  
  96. Back                                  # Back boring canned/manual cycle   
  97. G98 G87 X[H] Y[V] Z[D] R2 F[FRate]
  98. end cancel
  99.  
  100. Cancel                                # Cancel a canned/manual cycle      
  101. G80
  102. end
  103.  
  104. StartCode                             # Start of the program              
  105. %0
  106. !0 :[Program#]
  107. End
  108.  
  109. 1stToolChange                         # First tool change                 
  110. g91 G0 G49 G40 G80 G17
  111. G28 z0
  112. G28 x0 y0
  113. G92 x0 y0 z0
  114. T[Tool]
  115. F[Frate] S[Speed] M[Direct]
  116. G90 G0 x[H] y[V]
  117. G43 Z[D] H[Lcomp] M[Cool]
  118. End
  119.  
  120. Infeed                                # Enable cutter comp                
  121. G[Side] X[H] Y[V] D[DComp] F[FRate]
  122. end
  123.  
  124. Outfeed                               # Disable cutter comp               
  125. G1 G40 X[H] Y[V]
  126. end
  127.  
  128. ToolChange                            # Secondary tool changes            
  129. T[Tool]
  130. F[Frate] S[Speed] M[Direct]
  131. G90 G0 x[H] y[V]
  132. G43 Z[D] H[Lcomp] M[Cool]
  133. End
  134.  
  135. EndCode                               # End of the program                
  136. Ask [Val1] " Enter Retract value in Z at end  : " "100"
  137. G90 G0 G49 G40 G80 Z[Val1] M5
  138. M9
  139. M30
  140. %0
  141. End
  142.  
  143.